#!/usr/bin/env tclsh

#随机数生成

# 随机生成一个最大值到最小值之间的整数
proc random {min max} {
	return [expr round(($max-$min)*rand()+$min)]
}

#随机的小写字母
proc randomLow {} {
	return [format %c [random 97 122]]
}

#随机的大写字母
proc randomHigh {} {
	return [format %c [random 65 90]]
}
#随机生成最大值小于 max，长度不大于 maxLen的正整数list
proc randList {max maxLen} {
	set id [random 0 [expr $max - 1]]
	set len [random 1 $maxLen]
    set l1 [list]
    for {set i 0} {$i<$len} {incr i } {
        lappend l1 [random 0 [expr $max - 1]]
    }
    return $l1
}

set a [random 1 10]
puts $a
puts [randomLow]
puts [randomHigh]
puts ++++++++++++++
set l [randList 30 100]
puts $l




